home *** CD-ROM | disk | FTP | other *** search
/ 201 Action Adventure Games / 201 Action Adventure Games.iso / newfiles / SOLVEN.EXE / DOUBLE~2.SVS < prev    next >
Encoding:
Text File  |  1999-07-09  |  948 b   |  27 lines
  1. Version( 4.0 );
  2. SetDescription( 'Two Star Clusters dominate this scenario, and alternating Star Lords will find their Capitals in different Clusters.' );
  3. SetMapSize( 100, 100 );
  4. CreateStarCluster( Random( 12, 20 ), 25, 50, 25, 50, 20, 4 );
  5. CreateStarCluster( Random( 12, 20 ), 75, 50, 75, 50, 20, 4 );
  6. NumNebula := Random( 2, 5 );
  7. for i := 1 to NumNebula do
  8. begin
  9.   CreateNebula( Random( 20, 80 ), Random( 20, 80 ), Random( 4, 8 ), Random( 30, 70 ) );
  10. end;
  11. NumWormholes := Random( 1, 4 );
  12. for i := 1 to NumWormholes do
  13. begin
  14.   CreateWormhole( Random( 10, 40 ), Random( 30, 70 ), Random( 30, 70 ), Random( 30, 70 ) );
  15. end;
  16. NumWormholes := Random( 1, 4 );
  17. for i := 1 to NumWormholes do
  18. begin
  19.   CreateWormhole( Random( 60, 90 ), Random( 30, 70 ), Random( 30, 70 ), Random( 30, 70 ) );
  20. end;
  21. for i := 0 to 10 do
  22. begin
  23.   if i mod 2 = 0 then
  24.     AssignCapital( i, 0, 0, 49, 99 )
  25.   else
  26.     AssignCapital( i, 50, 0, 99, 99 );
  27. end;